Libraries

library(readr)
library(ggplot2)
library(skimr)
library(dplyr)
library(lubridate)

Primero se lee el archivo

data_temixco <- read_csv("../data/temixco.csv")
Rows: 52560 Columns: 8
── Column specification ─────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl  (7): Ib, Ig, To, RH, WS, WD, P
dttm (1): time

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
data_temixco

Luego se grafíca por periodo de tiempo

ts_plot(selectByDate(data_temixco, 
                     start = "2018-01-01", 
                     end = "2018-02-01"), 
        type = "multiple", 
        title = "Datos Temixco")

Sólo los fines de semana de ciertos meses durante algunas horas

ts_plot(selectByDate(data_temixco, day = "weekend", hour = 7:17, month =
c("jan", "feb", "mar")), 
type = "multiple", 
title = "Intervalo por fin de semana")

Sólo entre semana de ciertos meses durante algunas horas

ts_plot(selectByDate(data_temixco, day = "weekday", hour = 7:17, month =
c("jan", "feb", "mar")), 
type = "multiple", 
title = "Intervalo por fin de semana")
LS0tCnRpdGxlOiAiR3JhZmljYXIgcGVyaW9kbyBlc3BlY8OtZmljbyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyMgTGlicmFyaWVzCmBgYHtyfQpsaWJyYXJ5KHJlYWRyKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoc2tpbXIpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkobHVicmlkYXRlKQpsaWJyYXJ5KG9wZW5haXIpCmBgYAoKIyMjIFByaW1lcm8gc2UgbGVlIGVsIGFyY2hpdm8KYGBge3J9CmRhdGFfdGVtaXhjbyA8LSByZWFkX2NzdigiLi4vZGF0YS90ZW1peGNvLmNzdiIpCmRhdGFfdGVtaXhjbwpgYGAKCgojIyBMdWVnbyBzZSBncmFmw61jYSBwb3IgcGVyaW9kbyBkZSB0aWVtcG8KYGBge3J9CnRzX3Bsb3Qoc2VsZWN0QnlEYXRlKGRhdGFfdGVtaXhjbywgCiAgICAgICAgICAgICAgICAgICAgIHN0YXJ0ID0gIjIwMTgtMDEtMDEiLCAKICAgICAgICAgICAgICAgICAgICAgZW5kID0gIjIwMTgtMDItMDEiKSwgCiAgICAgICAgdHlwZSA9ICJtdWx0aXBsZSIsIAogICAgICAgIHRpdGxlID0gIkRhdG9zIFRlbWl4Y28iKQpgYGAKCgojIyMgU8OzbG8gbG9zIGZpbmVzIGRlIHNlbWFuYSBkZSBjaWVydG9zIG1lc2VzIGR1cmFudGUgYWxndW5hcyBob3JhcwpgYGB7cn0KdHNfcGxvdChzZWxlY3RCeURhdGUoZGF0YV90ZW1peGNvLCBkYXkgPSAid2Vla2VuZCIsIGhvdXIgPSA3OjE3LCBtb250aCA9CmMoImphbiIsICJmZWIiLCAibWFyIikpLCAKdHlwZSA9ICJtdWx0aXBsZSIsIAp0aXRsZSA9ICJJbnRlcnZhbG8gcG9yIGZpbiBkZSBzZW1hbmEiKQpgYGAKCgojIyMgU8OzbG8gZW50cmUgc2VtYW5hIGRlIGNpZXJ0b3MgbWVzZXMgZHVyYW50ZSBhbGd1bmFzIGhvcmFzCmBgYHtyfQp0c19wbG90KHNlbGVjdEJ5RGF0ZShkYXRhX3RlbWl4Y28sIGRheSA9ICJ3ZWVrZGF5IiwgaG91ciA9IDc6MTcsIG1vbnRoID0KYygiamFuIiwgImZlYiIsICJtYXIiKSksIAp0eXBlID0gIm11bHRpcGxlIiwgCnRpdGxlID0gIkludGVydmFsbyBwb3IgZmluIGRlIHNlbWFuYSIpCmBgYAoKCgoKCgoKCgoKCgoKCgoKCgoKCgo=